home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1004_RadioButton < prev    next >
Encoding:
Text File  |  1992-04-08  |  487 b   |  25 lines
  1. %case window field%
  2.     %HandleName%:%        %ControlHandle;
  3. %case create%
  4.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  5. %case track%
  6.     if whichControl = %HandleName% then begin
  7.         TrackRadio (%HandleName%, where, %fieldname%);
  8.     end;
  9. %case itemNr%
  10.     %DefineItem%
  11. %case dialog field%
  12.     %Enable?%
  13. %case init field%
  14.     %Enable?%
  15. %case enable%
  16.     %Enable?%
  17. %case hit%
  18.     %if not lastInGroup%
  19.         %itemname%,
  20.     %else%
  21.         %itemname%: begin
  22.                 DoRadio (%firstRadio%, itemNr, %fieldname%);
  23.             end;
  24.     %end if%
  25.